home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / scvs / scvslog < prev   
Text File  |  1991-12-12  |  481b  |  22 lines
  1. #!/sprite/cmds/perl
  2. require 'ctime.pl';
  3.  
  4. $module = shift;
  5. $module =~ m|kernel/(\S+)|;
  6. $module = $1;
  7. #
  8. # Don't record changes to the links file since its not very useful.
  9. #
  10. if ($module =~ /.*\/SCVS/) {
  11.     exit(0);
  12. }
  13. print("\n---------------------------------------------------------------\n");
  14. printf("Date    : %s", &ctime(time));
  15. printf("Module    : $module\n");
  16. printf("User    : %s\n", getlogin);
  17. while(<STDIN>) {
  18.     next if (/^Update of/);
  19.     next if (/^In directory/);
  20.     print;
  21. }
  22.